
Imports System.IO
Public Class Emergency_Args
    Inherits EventArgs

    Private m_Progress As Integer = 0
    Private m_Message As String = ""

    Public ReadOnly Property Progress() As Integer
        Get
            Return m_Progress
        End Get
    End Property
    Public ReadOnly Property Message() As String
        Get
            Return m_Message
        End Get
    End Property

    Public Sub New(ByVal percent As Integer, ByVal Message As String)
        m_Progress = percent
        m_Message = Message
    End Sub
End Class
